home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
PRINTDOC.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-10-25
|
739b
|
21 lines
' Note: Simply run this routine using the QuickBASIC editor without any
' library.
'
COLOR 15, 0: CLS
PRINT "The QuickBASIC Utility Set Documentation file is formatted to be printed on an"
PRINT "Epson(tm) command compatable printer. You may experience problems if your"
PRINT "printer will not handle Epson(tm) commands."
PRINT
PrintLoop:
PRINT "Print the QuickBASIC Utility Set Documentation file? [Y/N] :";
LOCATE , , 1
DO: A$ = UCASE$(INKEY$): LOOP UNTIL A$ <> "": PRINT A$
IF A$ = "Y" THEN
COLOR 31: CLS : PRINT "Printing......"
SHELL "TYPE QBUTIL.PRN > LPT1:"
COLOR 15: CLS : END
END IF
IF A$ <> "N" THEN BEEP: GOTO PrintLoop
CLS : END